home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / shellsort'str.l < prev    next >
Text File  |  2007-02-28  |  330b  |  18 lines
  1. 9000 PROC SHELLSORT'STR(REF A$(),M,N) CLOSED
  2. 9010 DIM T$ OF MAXLEN(A$(M))
  3. 9020 P:=N
  4. 9030 WHILE P>1 DO
  5. 9040 P:=P DIV 2
  6. 9050 REPEAT 
  7. 9060 D:=TRUE
  8. 9070 FOR J:=1 TO N-P DO
  9. 9080 I:=J+P
  10. 9090 IF A$(J)>A$(I) THEN
  11. 9100 SWAP'STR(A$(I),A$(J),T$)
  12. 9110 D:=FALSE
  13. 9120 ENDIF 
  14. 9130 ENDFOR J
  15. 9140 UNTIL D
  16. 9150 ENDWHILE 
  17. 9160 ENDPROC SHELLSORT'STR
  18.